home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Ap-Az / AudioVideoLib1.15.cpt / AudioVideoUtilities / card_2913.txt < prev    next >
Text File  |  1991-03-04  |  8KB  |  369 lines
  1. -- card: 2913 from stack: in
  2. -- bmap block id: 3560
  3. -- flags: 4000
  4. -- background id: 2627
  5. -- name: Calculator
  6.  
  7.  
  8. -- part 11 (field)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=394 top=292 right=306 bottom=506
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 3
  16. -- text size: 10
  17. -- style flags: 2304
  18. -- line height: 13
  19. -- part name: port to label
  20.  
  21.  
  22. -- part 12 (field)
  23. -- low flags: 01
  24. -- high flags: 0000
  25. -- rect: left=394 top=320 right=334 bottom=506
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 3
  30. -- text size: 10
  31. -- style flags: 2304
  32. -- line height: 13
  33. -- part name: port to stack
  34.  
  35.  
  36. -- part 13 (field)
  37. -- low flags: 00
  38. -- high flags: 0000
  39. -- rect: left=281 top=320 right=334 bottom=335
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 3
  44. -- text size: 10
  45. -- style flags: 2304
  46. -- line height: 13
  47. -- part name: helpRecCalc
  48.  
  49.  
  50. -- part 15 (button)
  51. -- low flags: 00
  52. -- high flags: 2000
  53. -- rect: left=6 top=301 right=337 bottom=78
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: Power
  62. ----- HyperTalk script -----
  63. on mouseUp
  64.   doPower
  65. end mouseUp
  66.  
  67.  
  68.  
  69. -- part 17 (button)
  70. -- low flags: 00
  71. -- high flags: 2000
  72. -- rect: left=335 top=317 right=338 bottom=392
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 0 / 0
  75. -- text alignment: 1
  76. -- font id: 0
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: clear
  81. ----- HyperTalk script -----
  82. on mouseUp
  83.   put empty into field "SelectionsA"
  84.   put empty into field "SelectionsB"
  85.   repeat with x = 1 to 12
  86.     put empty into field ("SelTimesA " & x)
  87.     put empty into field ("SelTimesB " & x)
  88.   end repeat
  89.   click at the location of button "calculate"
  90. end mouseUp
  91.  
  92.  
  93.  
  94. -- part 18 (field)
  95. -- low flags: 00
  96. -- high flags: 0000
  97. -- rect: left=290 top=292 right=305 bottom=325
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 0 / 0
  100. -- text alignment: 1
  101. -- font id: 3
  102. -- text size: 10
  103. -- style flags: 2304
  104. -- line height: 13
  105. -- part name: calculate
  106.  
  107.  
  108. -- part 19 (button)
  109. -- low flags: 00
  110. -- high flags: 2000
  111. -- rect: left=280 top=289 right=311 bottom=335
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 0 / 0
  114. -- text alignment: 1
  115. -- font id: 0
  116. -- text size: 12
  117. -- style flags: 0
  118. -- line height: 16
  119. -- part name: calculate
  120. ----- HyperTalk script -----
  121. on mouseUp
  122.   get bkgnd fld "TapeLength"
  123.   if it is "30 min" then put 900 into TimePerSide
  124.   if it is "45 min" then put 1350 into TimePerSide
  125.   if it is "60 min" then put 1800 into TimePerSide
  126.   if it is "75 min" then put 2250 into TimePerSide
  127.   if it is "80 min" then put 2400 into TimePerSide
  128.   if it is "90 min" then put 2700 into TimePerSide
  129.   if it is "100 min" then put 3000 into TimePerSide
  130.   if it is "110 min" then put 3300 into TimePerSide
  131.   if it is "120 min" then put 3600 into TimePerSide
  132.   put TimePerSide into TimeLeftA
  133.   put TimePerSide into TimeLeftB
  134.   put empty into AccumTimeA
  135.   put empty into AccumTimeB
  136.  
  137.   repeat with x = 1 to 12
  138.     get field ("SelTimesA " & x)
  139.     if it is empty then next repeat
  140.     if the length of it < 6 then put "00:" before it
  141.     add rawSeconds(it) to AccumTimeA
  142.   end repeat
  143.  
  144.   put stripExcess(AccumTimeA) into field "AccumTimeA"
  145.   subtract AccumTimeA from TimeLeftA
  146.   put stripExcess(TimeLeftA) into field "TimeLeftA"
  147.  
  148.   repeat with x = 1 to 12
  149.     get field ("SelTimesB " & x)
  150.     if it is empty then next repeat
  151.     if the length of it < 6 then put "00:" before it
  152.     add rawSeconds(it) to AccumTimeB
  153.   end repeat
  154.  
  155.   put stripExcess(AccumTimeB) into field "AccumTimeB"
  156.   subtract AccumTimeB from TimeLeftB
  157.   put stripExcess(TimeLeftB) into field "TimeLeftB"
  158.  
  159. end mouseUp
  160.  
  161.  
  162.  
  163. -- part 20 (button)
  164. -- low flags: 00
  165. -- high flags: 2000
  166. -- rect: left=393 top=289 right=310 bottom=507
  167. -- title width / last selected line: 0
  168. -- icon id / first selected line: 0 / 0
  169. -- text alignment: 1
  170. -- font id: 0
  171. -- text size: 12
  172. -- style flags: 0
  173. -- line height: 16
  174. -- part name: porttolabel
  175. ----- HyperTalk script -----
  176. on mouseUp
  177.   put bkgnd field "SelectionsA" into Aside
  178.   put bkgnd field "SelectionsB" into Bside
  179.   put bkgnd field "TapeLength" into tapelength
  180.   go to card "labeler"
  181.   click at location of button "clear"
  182.   put Aside into field "A1"
  183.   put Bside into field "B1"
  184.   put tapelength into field "tape length"
  185. end mouseUp
  186.  
  187.  
  188.  
  189. -- part 22 (button)
  190. -- low flags: 00
  191. -- high flags: 2000
  192. -- rect: left=134 top=302 right=333 bottom=176
  193. -- title width / last selected line: 0
  194. -- icon id / first selected line: 0 / 0
  195. -- text alignment: 1
  196. -- font id: 0
  197. -- text size: 12
  198. -- style flags: 0
  199. -- line height: 16
  200. -- part name: LPswitch
  201. ----- HyperTalk script -----
  202. on mouseUp
  203.   go to any card of background "LP" of stack "AudioVideo Library"
  204. end mouseUp
  205.  
  206.  
  207.  
  208. -- part 23 (button)
  209. -- low flags: 00
  210. -- high flags: 2000
  211. -- rect: left=183 top=302 right=333 bottom=225
  212. -- title width / last selected line: 0
  213. -- icon id / first selected line: 0 / 0
  214. -- text alignment: 1
  215. -- font id: 0
  216. -- text size: 12
  217. -- style flags: 0
  218. -- line height: 16
  219. -- part name: TAPEswitch
  220. ----- HyperTalk script -----
  221. on mouseUp
  222.   go to any card of background "TAPE" of stack "AudioVideo Library"
  223. end mouseUp
  224.  
  225.  
  226.  
  227. -- part 24 (button)
  228. -- low flags: 00
  229. -- high flags: 2000
  230. -- rect: left=230 top=302 right=333 bottom=272
  231. -- title width / last selected line: 0
  232. -- icon id / first selected line: 0 / 0
  233. -- text alignment: 1
  234. -- font id: 0
  235. -- text size: 12
  236. -- style flags: 0
  237. -- line height: 16
  238. -- part name: VIDEOswitch
  239. ----- HyperTalk script -----
  240. on mouseUp
  241.   go to any card of background "VIDEO" of stack "AudioVideo Library"
  242. end mouseUp
  243.  
  244.  
  245.  
  246. -- part 25 (button)
  247. -- low flags: 00
  248. -- high flags: 2000
  249. -- rect: left=278 top=316 right=338 bottom=336
  250. -- title width / last selected line: 0
  251. -- icon id / first selected line: 0 / 0
  252. -- text alignment: 1
  253. -- font id: 0
  254. -- text size: 12
  255. -- style flags: 0
  256. -- line height: 16
  257. -- part name: help
  258. ----- HyperTalk script -----
  259. on mouseUp
  260.   doMenu Next
  261. end mouseUp
  262.  
  263.  
  264.  
  265. -- part 27 (button)
  266. -- low flags: 00
  267. -- high flags: 2000
  268. -- rect: left=393 top=316 right=341 bottom=507
  269. -- title width / last selected line: 0
  270. -- icon id / first selected line: 0 / 0
  271. -- text alignment: 1
  272. -- font id: 0
  273. -- text size: 12
  274. -- style flags: 0
  275. -- line height: 16
  276. -- part name: porttostack
  277. ----- HyperTalk script -----
  278. on mouseUp
  279.   put bkgnd field "SelectionsA" into Aside
  280.   put bkgnd field "SelectionsB" into Bside
  281.   go to any card of background "TAPE" of stack "AudioVideo Library"
  282.   click at location of bkgnd button "NewCard"
  283.   put Aside into field "IA"
  284.   put Bside into field "IB"
  285. end mouseUp
  286.  
  287.  
  288.  
  289. -- part 29 (button)
  290. -- low flags: 00
  291. -- high flags: 2000
  292. -- rect: left=335 top=289 right=310 bottom=392
  293. -- title width / last selected line: 0
  294. -- icon id / first selected line: 0 / 0
  295. -- text alignment: 1
  296. -- font id: 0
  297. -- text size: 12
  298. -- style flags: 0
  299. -- line height: 16
  300. -- part name: master
  301. ----- HyperTalk script -----
  302. on mouseUp
  303.   go to first card of stack "AudioVideo Library"
  304. end mouseUp
  305.  
  306.  
  307.  
  308. -- part 30 (button)
  309. -- low flags: 00
  310. -- high flags: 0000
  311. -- rect: left=380 top=0 right=20 bottom=454
  312. -- title width / last selected line: 0
  313. -- icon id / first selected line: 0 / 0
  314. -- text alignment: 1
  315. -- font id: 0
  316. -- text size: 12
  317. -- style flags: 0
  318. -- line height: 16
  319. -- part name: New Button
  320. ----- HyperTalk script -----
  321. on mouseDown
  322.   send mouseDown to field "tapeLength"
  323. end mouseDown
  324.  
  325.  
  326.  
  327. -- part contents for background part 11
  328. ----- text -----
  329. 90 min
  330.  
  331. -- part contents for card part 11
  332. ----- text -----
  333. port to label
  334.  
  335. -- part contents for card part 12
  336. ----- text -----
  337. port to stack
  338.  
  339. -- part contents for card part 13
  340. ----- text -----
  341. help
  342.  
  343. -- part contents for background part 4
  344. ----- text -----
  345. 45:00
  346.  
  347. -- part contents for background part 8
  348. ----- text -----
  349. -00:00
  350.  
  351. -- part contents for background part 9
  352. ----- text -----
  353. 45:00
  354.  
  355. -- part contents for background part 36
  356. ----- text -----
  357.  clear
  358.  
  359. -- part contents for card part 18
  360. ----- text -----
  361. calc
  362.  
  363. -- part contents for background part 3
  364. ----- text -----
  365. -00:00
  366.  
  367. -- part contents for background part 38
  368. ----- text -----
  369. master